home *** CD-ROM | disk | FTP | other *** search
Text File | 1993-04-14 | 1.4 KB | 233 lines | [TEXT/QKPT] |
- alpha "Integral:"
- ibase
- STOa 9
- ;
- FIX 0
- ;
- alpha "X Column"
- STOa 0
- 0e+00
- STO 00
- ;
- alpha "Y Column"
- STOa 1
- 1
- STO 01
- ;
- alpha "Output Column"
- STOa 2
- 2
- STO 02
- ;
- alpha "Initial Value"
- STOa 3
- 0e+00
- STO 03
- ;
- RCLa 9
- inpt 4
- ;
- RCL 00
- int
- STO 05
- ;
- RCL 01
- int
- STO 06
- ;
- RCL 02
- int
- STO 04
- ;
- RCL 03
- STO 02
- ;
- FIX 6
- ;
- RCL 02
- STO 00
- ;
- XEQ 10
- ;
- XEQ 80
- ;
- STOP
- ;
- LBL 10
- RCL 05
- 1000
- /
- STO 10
- size
- 1
- -
- RCL 10
- +
- STO 11
- ;
- RCL 10
- int
- RCL 06
- 1000
- /
- +
- STO 40
- ;
- RCL 11
- int
- RCL 06
- 1000
- /
- +
- STO 41
- ;
- LBL 90
- RCLi 41
- test 1
- GTO 91
- test 2
- GTO 91
- RCLi 11
- test 1
- GTO 91
- test 2
- GTO 91
- ;
- LBL 92
- RCLi 40
- test 1
- GTO 93
- test 2
- GTO 93
- RCLi 10
- test 1
- GTO 93
- test 2
- GTO 93
- ;
- RTN
- ;
- LBL 91
- RCL 41
- 1
- -
- STO 41
- RCL 11
- 1
- -
- STO 11
- GTO 90
- ;
- LBL 93
- RCL 40
- 1
- +
- STO 40
- RCL 10
- 1
- +
- STO 10
- GTO 92
- ;
- LBL 80
- ;
- RCL 11
- RCL 10
- -
- 1e-05
- +
- int
- STO 01
- ;
- RCL 10
- STO 20
- int
- RCL 06
- 1000
- /
- +
- STO 40
- ;
- RCL 10
- int
- RCL 04
- 1000
- /
- +
- STO 19
- RCL 00
- STOi 19
- RCL 19
- 1
- +
- STO 19
- ;
- RCL 20
- 1
- +
- STO 22
- ;
- RCL 40
- 1
- +
- STO 42
- ;
- 0e+00
- RCL 01
- x <= y
- GTO 81
- ;
- LBL 98
- RCLi 22
- RCLi 20
- -
- RCLi 42
- test 1
- GTO 60
- test 2
- GTO 60
- RCLi 40
- +
- 2
- /
- *
- ADD 00
- RCL 00
- STOi 19
- ;
- 1
- ADD 19
- ADD 22
- ADD 42
- RCL 22
- 1
- -
- STO 20
- RCL 42
- 1
- -
- STO 40
- GTO 62
- ;
- LBL 60
- CLRi 19
- 1
- ADD 19
- ADD 42
- ADD 22
- ;
- LBL 62
- 0e+00
- DSE 01
- GTO 98
- ;
- RTN
- ;
- LBL 81
- RTN
- ;
- alpha "Version 1.1 - 5/12/89"
- alpha "by Lonnie R. Abelbeck"
- alpha "Modified - 4/14/93"
- alpha "by W. T. Jones"
-